home *** CD-ROM | disk | FTP | other *** search
(defvar scrollbar-width 5 "\ *The character width of the scrollbar. The cursor is deemed to be in the right edge scrollbar if it is this near the right edge, and more than two chars past the end of the indicated line. Setting to nil limits the scrollbar to the edge or vertical dividing bar.") (defun make-mousemap nil "\ Returns a new mousemap." (byte-code "ˋ¹BÇ" [nil mousemap] 2)) (defun copy-mousemap (mousemap) "\ Return a copy of mousemap." (byte-code "ˋ!Ç" [mousemap copy-alist] 2)) (defun define-mouse (mousemap mouse-list def) "\ Args MOUSEMAP, MOUSE-LIST, DEF. Define MOUSE-LIST in MOUSEMAP as DEF. MOUSE-LIST is a list of atoms specifing a mouse hit according to these rules: * One of these atoms specifies the active region of the definition. text, scrollbar, modeline, minibuffer * One or two or these atoms specify the button or button combination. left, middle, right, double * Any combination of these atoms specify the active shift keys. control, shift, meta * With a single unshifted button, you can add up to indicate an up-click. The atom `double' is used with a button designator to denote a double click. Two button chords are denoted by listing the two buttons. See eterm-mouse-handler for the treatment of the form DEF." (byte-code "ˆ˜! #Ç" [mouse-list mousemap def mousemap-set mouse-list-to-mouse-code] 5)) (defun global-set-mouse (mouse-list def) "\ Give MOUSE-EVENT-LIST a local definition of DEF. See define-mouse for a description of MOUSE-EVENT-LIST and DEF. Note that if MOUSE-EVENT-LIST has a local definition in the current buffer, that local definition will continue to shadow any global definition." (interactive "xMouse event: xDefinition: ") (byte-code "ˆÈ˜ #Ç" [current-global-mousemap mouse-list def nil define-mouse] 4)) (defun local-set-mouse (mouse-list def) "\ Give MOUSE-EVENT-LIST a local definition of DEF. See define-mouse for a description of the arguments. The definition goes in the current buffer's local mousemap. Normally buffers in the same major mode share a local mousemap." (interactive "xMouse event: xDefinition: ") (byte-code "ˆÈ?Ä ˜ Éȯ #Ç" [current-local-mousemap mouse-list def nil make-mousemap define-mouse] 5)) (defun use-global-mousemap (mousemap) "\ Selects MOUSEMAP as the global mousemap." (byte-code " ÉÇ" [current-global-mousemap mousemap] 2)) (defun use-local-mousemap (mousemap) "\ Selects MOUSEMAP as the local mousemap. nil for MOUSEMAP means no local mousemap." (byte-code " ÉÇ" [current-local-mousemap mousemap] 2)) (defun logtest (x y) "\ True if any bits set in X are also set in Y. Just like the Common Lisp function of the same name." (byte-code "´ˆ \"!?Ç" [x y zerop logand] 4)) (defconst em::ButtonBits 7) (defconst em::ShiftmaskBits 56) (defconst em::DoubleBits 64) (defconst em::UpBits 128) (defmacro em::hit-code (hit) (byte-code "ˋ´EÇ" [hit nth 0] 3)) (defmacro em::hit-button (hit) (byte-code "ˋ´ˆ˜EEÇ" [hit logand em::ButtonBits nth 0] 5)) (defmacro em::hit-shiftmask (hit) (byte-code "ˋ´ˆ˜EEÇ" [hit logand em::ShiftmaskBits nth 0] 5)) (defmacro em::hit-double (hit) (byte-code "ˋ´ˆ˜EEÇ" [hit logand em::DoubleBits nth 0] 5)) (defmacro em::hit-up (hit) (byte-code "ˋ´ˆ˜EEÇ" [hit logand em::UpBits nth 0] 5)) (defmacro em::hit-x (hit) (byte-code "ˋ´EÇ" [hit nth 1] 3)) (defmacro em::hit-y (hit) (byte-code "ˋ´EÇ" [hit nth 2] 3)) (defmacro em::hit-delta (hit) (byte-code "ˋ´EÇ" [hit nth 3] 3)) (defmacro em::hit-up-p (hit) (byte-code "ˋ´ˆDDDÇ" [hit not zerop em::hit-up] 4)) (defmacro em::loc-w (loc) (byte-code "ˋ´EÇ" [loc nth 0] 3)) (defmacro em::loc-x (loc) (byte-code "ˋ´EÇ" [loc nth 1] 3)) (defmacro em::loc-y (loc) (byte-code "ˋ´EÇ" [loc nth 2] 3)) (defmacro eval-in-buffer (buffer &rest forms) "Macro to switches to BUFFER, evaluates FORMS, returns to original buffer." (byte-code "´ˆ˜¯˘˙DD \"¨EEÇ" [buffer forms let ((StartBuffer (current-buffer))) unwind-protect append progn set-buffer (set-buffer StartBuffer)] 7)) (put (quote eval-in-buffer) (quote lisp-indent-hook) 1) (defmacro eval-in-window (window &rest forms) "Switch to WINDOW, evaluate FORMS, return to original window." (byte-code "´ˆ˜¯˘˙DD \"¨EEÇ" [window forms let ((OriginallySelectedWindow (selected-window))) unwind-protect append progn select-window (select-window OriginallySelectedWindow)] 7)) (put (quote eval-in-window) (quote lisp-indent-hook) 1) (defmacro eval-in-windows (form &optional yesmini) "Switches to each window and evaluates FORM. Optional argument YESMINI says to include the minibuffer as a window. This is a macro, and does not evaluate its arguments." (byte-code "´ˆ˜¯˘˙¨²˚¸³ EDEDED˝EEÇ" [form yesmini let ((OriginallySelectedWindow (selected-window))) unwind-protect while progn not eq OriginallySelectedWindow select-window next-window nil (select-window OriginallySelectedWindow)] 13)) (put (quote eval-in-window) (quote lisp-indent-hook) 0) (defun move-to-loc (x y) "\ Move cursor to window location X, Y. Handles wrapped and horizontally scrolled lines correctly." (byte-code "˜!Èi¯˘˙ ! i¨ ²Z ^\\Á\" ˚˙ ¸¨ S ^#! Z*Ç" [y cc nc x move-to-window-line move-to-column zerop window-hscroll window-width 2 + -1] 13)) (defun minibuffer-window-p (window) "\ True iff this WINDOW is minibuffer." (byte-code "ˋ ´ˆ!8UÇ" [window screen-height 3 window-edges] 5)) (defun eterm-mouse-handler (&optional hit) "\ Evaluates the function or list associated with a mouse hit. Expecting to read a hit, which is a list: (button x y unused). A form bound to button by define-mouse is found by mouse-lookup. The variables: *mouse-window*, *mouse-x*, *mouse-y* are bound. If the form is a symbol (symbolp), it is funcall'ed with *mouse-window*, *mouse-x*, and *mouse-y* as arguments; if the form is a list (listp), the form is eval'ed; if the form is neither of these, it is an error. Returns nil." (interactive) (byte-code "³È?Ä ˝ ÉÈ˛ˇ8—8\"± 8ˇ 8— 8¼ \" p ½Î¾ !qÈà !)) ?ÂV áâ±8\"!??ÄS ãäåç !!\"ÁÄ 9Âl É Èè $ÁÄ < @É Èé!ÁÄ ãê\"),)È ë=ÄÕ É È³Ç" [hit loc *mouse-window* *mouse-x* *mouse-y* mouse-code form StartBuffer em::UpBits this-command t last-command nil mouse-hit-read em::window-xy 1 2 0 mouse-event-code ((byte-code "qÇ" [StartBuffer] 1)) window-buffer mouse-lookup zerop logand error "Undefined mouse event: %s" prin1-to-string mouse-code-to-mouse-list funcall eval "Mouse action must be symbol or list, but was: %s" eterm-mouse-handler] 15)) (defun mouse-hit-read nil "\ Read mouse-hit list from keyboard. Like (read 'read-char), but that uses minibuffer, and mucks up last-command." (byte-code "ˋˋˆ˜rÉ BÉÈ\"?Ä ˋÈÁ ȯ˘˙¨!²#!*Ç" [char-list nil char equal 13 read mapconcat char-to-string nreverse ""] 7)) (defun em::window-xy (x y) "\ Find window containing screen coordinates X and Y. Returns list (window x y) where x and y are relative to window." (byte-code "ˆ˜ÍÅ ¹ EÇ" [nil x y found (byte-code "˚ ¸Î³˚ !˝ 8˛ 8ˇ 8— 8 ± UÄ% TÉÈ ¼ UÄ1 TÉÈ YÄK WÄK YÄK WÄ\\ ½¾˚ Z ZE\",)Èàᨲ\"!=?Äp ¨ÈÁ ))Ç" [OriginallySelectedWindow we le te re be x y nil t selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) window-edges 0 1 2 3 screen-width screen-height throw found select-window next-window] 12)] 3)) (defun em::window-region (loc) "\ Parse LOC into a region symbol. Returns one of (text scrollbar modeline minibuffer)" (byte-code "¨ 8² 8˚ 8¸!S³!S ˝! ˛ÁS YÂ* ˇÁS YÂ4 —ÁS ÄK ZYÄK ˚± #\\YÂR —ÁS ¼*+Ç" [w loc x y right bottom scrollbar-width t 0 1 2 window-width window-height minibuffer-window-p minibuffer modeline scrollbar window-line-end text] 9)) (defun window-line-end (w x y) "\ Return WINDOW column (ignore X) containing end of line Y" (byte-code "ˆ ˜Î¯ !ÈÊ˘˙ \")))Ç" [OriginallySelectedWindow w y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window move-to-loc screen-width] 6)) (defconst em::keyword-alist (quote ((left . 1) (middle . 2) (right . 4) (shift . 8) (control . 16) (meta . 32) (double . 64) (up . 128) (text . 256) (scrollbar . 512) (modeline . 1024) (minibuffer . 2048)))) (defun mouse-event-code (hit loc) "\ Maps MOUSE-HIT and LOC into a mouse-code." (byte-code "´ˆ8˜¯ !!\"Ç" [hit loc logior 0 mouse-region-to-code em::window-region] 5)) (defun mouse-region-to-code (region) "\ Returns partial mouse-code for specified REGION." (byte-code "´ \"AÇ" [region em::keyword-alist assq] 3)) (defun mouse-list-to-mouse-code (mouse-list) "\ Map a MOUSE-LIST to a mouse-code." (byte-code "ˋ´ˆ˜\"\"Ç" [mouse-list apply logior mapcar (lambda (x) (byte-code "´ \"AÇ" [x em::keyword-alist assq] 3))] 5)) (defun mouse-code-to-mouse-list (mouse-code) "\ Map a MOUSE-CODE to a mouse-list." (byte-code "ˋ´ˆ˜\"\"Ç" [em::keyword-alist apply nconc mapcar (lambda (x) (byte-code "´ A\"Ä @CÇ" [mouse-code x logtest] 3))] 5)) (defun mousemap-set (code mousemap value) (byte-code " A¯ \"  ˘ \"Á ˘ BB\"*Ç" [alist mousemap assq-result code value assq setcdr] 6)) (defun mousemap-get (code mousemap) (byte-code "´ A\"AÇ" [code mousemap assq] 3)) (defun mouse-lookup (mouse-code) "\ Look up MOUSE-EVENT and return the definition. nil means undefined." (byte-code "ˆ \"Å ˆ \"Ç" [mouse-code current-local-mousemap current-global-mousemap mousemap-get] 4)) (defun mouse-mask-lookup (mask list) "\ Args MASK (a bit mask) and LIST (a list of (code . form) pairs). Returns a list of elements of LIST whose code or'ed with MASK is non-zero." (byte-code "ˋ Ä ˜ @@\"Ä @BÉÈ AÉÈÁ È)Ç" [result nil list mask logtest] 4)) (defun mouse-union (l l-unique) "\ Return the union of list of mouse (code . form) pairs L and L-UNIQUE, where L-UNIQUE is considered to be union'ized already." (byte-code " Ä! @˜ @\"?Ä BÉ)È AÉÈÁ È)Ç" [result l-unique l code-form-pair assq] 4)) (defun mouse-union-first-prefered (l1 l2) "\ Return the union of lists of mouse (code . form) pairs L1 and L2, based on the code's, with preference going to elements in L1." (byte-code "ˆˆ ´\"\"Ç" [l2 l1 nil mouse-union] 5)) (defun mouse-code-function-pairs-of-region (region) "\ Return a list of (code . function) pairs, where each code is currently set in the REGION." (byte-code "˜ !¯˘ A\"˘ A\"\")Ç" [mask region current-local-mousemap current-global-mousemap mouse-region-to-code mouse-union-first-prefered mouse-mask-lookup] 7)) (defun one-line-doc-string (function) "\ Returns first line of documentation string for FUNCTION. If there is no documentation string, then the string \"No documentation\" is returned." (byte-code ":Ä @ÉÈÁ È´! ? ˆÁ& ˜¯ \"È ˘˙˘!O)Ç" [function doc documentation "No documentation." string-match "^.*$" 0 match-end] 6)) (defun print-mouse-format (binding) (byte-code "ˋ@!Èˋ´!Ȉ˜A\"ȯ Èˋ˘!Èˋ˙@!!ȯ Ç" [binding princ ": " mapcar (lambda (mouse-list) (byte-code "ˋ!Èˋ´!Ç" [mouse-list princ " "] 3)) terpri " " one-line-doc-string] 9)) (defun print-mouse-bindings (region) "\ Prints mouse-event bindings for REGION." (byte-code "ˋ´ˆ!\"Ç" [region mapcar print-mouse-format em::event-bindings] 4)) (defun em::event-bindings (region) "\ Returns an alist of (function . (mouse-list1 ... mouse-listN)) for REGION, where each mouse-list is bound to the function in REGION." (byte-code "˘ !ˆÄ: @ ˙ A \" Â$ ¨ ² @! AB\"Á0 A² @!CB BÉ*ÈAÉÈÁ È *Ç" [mouse-bindings region result nil code-function-pair current-entry mouse-code-function-pairs-of-region assoc setcdr mouse-code-to-mouse-list] 8)) (defun describe-mouse-bindings nil "\ Lists all current mouse-event bindings." (interactive) (byte-code "¹Èˋдˆ!Ș È´¯!Ș È˘˙!Ș È´¨!Ș È´²!Ș È˘˚!Ș È´¸!Ș È´³!Ș È˘˝!ÑÇ" [nil "*Help*" princ "Text Region" terpri "---- ------" print-mouse-bindings text "Modeline Region" "-------- ------" modeline "Scrollbar Region" "--------- ------" scrollbar] 19)) (defun describe-mouse-briefly (mouse-list) "\ Print a short description of the function bound to MOUSE-LIST." (interactive "xDescibe mouse list briefly: ") (byte-code "´Èˆ˜ !! ¯˘ #Á ¯˙ \")Ç" [function mouse-list nil mouse-lookup mouse-list-to-mouse-code message "%s runs the command %s" "%s is undefined"] 6)) (make-variable-buffer-local (quote current-local-mousemap)) (setq-default current-local-mousemap nil) (defvar current-global-mousemap (make-mousemap)) (defun eterm-send-terminal-string-function (string function) "\ Send a \\C-q quoted string to the terminal, then send function" (byte-code "´ˆ˜ R!Ç" [string function send-string-to-terminal "" ""] 5)) (defun eterm-change-title (title) "\ Change the wm title for the gnumacs window." (interactive "sTitle: ") (byte-code "ˋÈ´ˆ\"Ç" [title nil eterm-send-terminal-string-function "t"] 3)) (defun eterm-send-region-to-cut-buffer nil "\ Copy the region between point and mark to the NeXT cut buffer. This will not happen if the region contains a \\377." (interactive "") (byte-code "¹ÈÊˋ´ˆÏ)Ç" [nil err (byte-code "ˆ ˜ bȯ˘ ´# ˙¨²\"È˚¸!Á# ˙³ \"²\"*Ç" [start end t region-beginning region-end search-forward "" eterm-send-terminal-string-function "" "c" message "Bogus character in region." buffer-substring] 9) ((error (byte-code "¹ˋ´\"Ç" [eterm-send-terminal-string-function "" "c"] 3)))] 3)) (defun eterm-send-region-to-cut-buffer-and-wipe nil "\ As send-region-to-cut-buffer but also kill the text." (interactive "") (byte-code "¹Èˋ È´ Ȉ˜!Ç" [nil barf-if-buffer-read-only eterm-send-region-to-cut-buffer call-interactively kill-region] 4)) (defvar eserver nil "\ The event server process.") (defun start-event-server nil (interactive) (byte-code "˜È¯˘P!È˙¨!Å ²˚!˙¸!Å ²³!˝˛˜ ˇ !$É*È— ±\"ȼ ½\"Ⱦàá\"Ç" [emacs-version host port eserver nil eterm-change-title "Emacs version " getenv "EVENT_HOST" error "Can't find host for event server" "EVENT_PORT" "Can't find port for event server" open-network-stream " event-server" string-to-int set-process-filter event-filter set-process-sentinel event-sentinel global-set-key " " eterm-mouse-handler] 12)) (defun event-sentinel (process change) (byte-code "ˋ´P!Ç" [change message "The event handler has "] 3)) (defvar event-partial-output "" "\ Incomplete, unprocessed output from the event server") (defun event-filter (process string) (byte-code " P˜¯\"Ä! ˘˙!¨²!@!È ˚OÉ)ÈÁ ÈÉ)Ç" [events event-partial-output string next string-match " " match-end 0 eval read-from-string nil] 8)) (defun event-copy nil (byte-code "¹ Ç" [eterm-send-region-to-cut-buffer] 2)) (defun event-cut nil (byte-code "¹ Ç" [eterm-send-region-to-cut-buffer-and-wipe] 2)) (defun event-paste (str) (byte-code "ˋ È´`!ÈcÇ" [str barf-if-buffer-read-only push-mark] 3)) (defun event-quit nil (byte-code "ˋ ÈˋÉÇ" [last-command save-buffers-kill-emacs] 3)) (defconst cursor-pause-milliseconds 300 "\ *Number of milliseconds to display alternate cursor (usually the mark)") (defun indicate-region (&optional pause) "\ Bounce cursor to mark for cursor-pause-milliseconds and back again" (byte-code "Å ÉȈ˜ ȯ˘! ˘!Á ˙¨!Ș )Ç" [pause cursor-pause-milliseconds times 0 exchange-point-and-mark fboundp sit-for-millisecs sit-for 1] 6)) (defun mouse-move-point (window x y) "\ Move point to mouse cursor." (byte-code "¯!È˘ \"È ˙>Ä ¨ÉÇ" [window x y last-command this-command select-window move-to-loc (mouse-copy mouse-delete mouse-yank-move) mouse-yank-move] 4)) (defun mouse-set-mark (window x y) "\ Set mark at mouse cursor." (byte-code "¯ ˘Î˙ !È`¨ \"Ȳ`!È bÈ˚ )))Ç" [OriginallySelectedWindow window point x y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window move-to-loc set-mark indicate-region] 6)) (defun mouse-set-mark-and-select (window x y) "\ Set mark at mouse cursor, and select that window." (byte-code "ˆ!Ș #Ç" [window x y select-window mouse-set-mark] 5)) (defvar *mouse-drag-window* nil) (defvar *mouse-drag-x* -1) (defvar *mouse-drag-y* -1) (defun mouse-drag-move-point (window x y) "\ Move point to mouse cursor, and allow dragging." (byte-code "˘ #È ÉÇ" [window x y *mouse-drag-window* *mouse-drag-x* *mouse-drag-y* mouse-move-point] 4)) (defun mouse-drag-set-mark (window x y) "\ The up click handler that goes with mouse-drag-move-point. If mouse is in same WINDOW but at different X or Y than when mouse-drag-move-point was last executed, set the mark at mouse." (byte-code " =Ä ¨ \"Ä ¨ \"? ² #Á\" ÉÇ" [*mouse-drag-window* window *mouse-drag-x* x *mouse-drag-y* y this-command last-command equal mouse-set-mark-and-select] 6)) (defun mouse-select-or-drag-move-point (window x y) "\ Select window if not selected, otherwise do mouse-drag-move-point." (byte-code "ˆ = ˜ #Á ¯ #Ç" [window x y selected-window mouse-drag-move-point mouse-select-window] 6)) (defun mouse-exch-pt-and-mark (window x y) "\ Exchange point and mark." (byte-code "ˋ!È´ Ç" [window select-window exchange-point-and-mark] 3)) (defun mouse-call-kbd-macro (window x y) "\ Invokes last keyboard macro at mouse cursor." (byte-code "ˆ #Ș Ç" [window x y mouse-move-point call-last-kbd-macro] 4)) (defun mouse-mark-thing (window x y) "\ Set point and mark to text object using syntax table. The resulting region is put in the NeXT pasteboard. Left or right Paren syntax marks an s-expression. Clicking at the end of a line marks the line including a trailing newline. If it doesn't recognize one of these it marks the character at point." (byte-code "˘ #ÈmÄ ˙¨!È`f² ! ˚=Â) ¸¨!ȳ`!ȸ˝!Á[ ˛=Â5 ˇ¨!Á[ —=ÂH ±¨!Èˇ˝!ȼ Á[ lÂW ³`T!Ƚ¨!Á[ ³`T!Ⱦ *Ç" [window x y char syntax t mouse-move-point open-line 1 char-syntax 119 forward-word set-mark -1 40 mark-sexp 41 forward-char exchange-point-and-mark beginning-of-line indicate-region] 15)) (defun mouse-kill-thing (window x y) "\ Kill thing at mouse, and put point there." (byte-code "ˆ #Ș¯ ˘ \"Ç" [window x y mouse-mark-thing eterm-send-region-to-cut-buffer-and-wipe region-beginning region-end] 6)) (defun mouse-kill-thing-there (window x y) "\ Kill thing at mouse, leave point where it was. See mouse-mark-thing for a description of the objects recognized." (byte-code "˜ ¯Î˘ !ÈÊ˙ #Ȩ² ˚ \")))Ç" [OriginallySelectedWindow window x y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window mouse-mark-thing eterm-send-region-to-cut-buffer-and-wipe region-beginning region-end] 8)) (defun mouse-save-thing (window x y &optional quiet) "\ Put thing at mouse in kill ring. See mouse-mark-thing for a description of the objects recognized." (byte-code "˜ #ȯ˘ ˙ \"È ?Ä ¨²!Ç" [window x y quiet mouse-mark-thing eterm-send-region-to-cut-buffer region-beginning region-end message "Thing saved"] 6)) (defun mouse-save-thing-there (window x y &optional quiet) "\ Put thing at mouse in kill ring, leave point as is. See mouse-mark-thing for a description of the objects recognized." (byte-code "¯ ˘Î˙ !Èʨ $)))Ç" [OriginallySelectedWindow window x y quiet selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window mouse-save-thing] 7)) (defun mouse-copy-thing (window x y) "\ Put thing at mouse in kill ring, yank to point. See mouse-mark-thing for a description of the objects recognized." (byte-code "˘ÉÈ˙ ˜$Ȩ ȨÉÇ" [last-command window x y t this-command not-kill mouse-save-thing-there yank] 5)) (defun mouse-move-thing (window x y) "\ Kill thing at mouse, yank it to point. See mouse-mark-thing for a description of the objects recognized." (byte-code "¯ÉÈ˘ #È˙ È˙ÉÇ" [last-command window x y this-command not-kill mouse-kill-thing-there yank] 4)) (defun mouse-yank-at-point (&optional window x y) "\ Yank from kill-ring at point; then cycle thru kill ring." (byte-code "˜=Â# `¯ W˘`¯ \"È˙¨!È @cÈ Ä ² )Á% ˜ ȘÉÇ" [last-command before kill-ring-yank-pointer this-command yank mark delete-region rotate-yank-pointer 1 exchange-point-and-mark] 8)) (defun mouse-yank-at-mouse (window x y) "\ Yank from kill-ring at mouse; then cycle thru kill ring." (byte-code "ˆ #Ș #Ç" [window x y mouse-move-point mouse-yank-at-point] 5)) (defun mouse-save/delete/yank (&optional window x y) "\ Context sensitive save/delete/yank. Consecutive clicks perform as follows: * first click saves region to kill ring, * second click kills region, * third click yanks from kill ring, * subsequent clicks cycle thru kill ring. If mouse-move-point is performed after the first or second click, the next click will do a yank, etc. Except for a possible mouse-move-point, this command is insensitive to mouse location." (byte-code "ˆ> ˜ Á, ¯= ˘˙ ¨ \"ȲÉÁ, ˚˙ ¨ \"ȸ³!ȯÉÇ" [last-command this-command t (mouse-delete yank mouse-yank-move) mouse-yank-at-point mouse-copy kill-region region-beginning region-end mouse-delete copy-region-as-kill message "Region saved"] 10)) (defun mouse-split-horizontally (window x y) "\ Splits the window horizontally at mouse cursor." (byte-code "ˆ ˜Î¯ !È˘ T!))Ç" [OriginallySelectedWindow window x selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window split-window-horizontally] 4)) (defun mouse-split-vertically (window x y) "\ Split the window vertically at the mouse cursor." (byte-code "ˆ ˜Î¯ !È˘ T!))Ç" [OriginallySelectedWindow window y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window split-window-vertically] 4)) (defun mouse-select-window (window x y) "\ Selects the window, restoring point." (byte-code "ˋ!Ç" [window select-window] 2)) (defun mouse-delete-other-windows (window x y) "\ Deletes all windows except the one mouse is in." (byte-code "ˋ!Ç" [window delete-other-windows] 2)) (defun mouse-delete-window (window x y) "\ Deletes the window mouse is in." (byte-code "ˋ!Ç" [window delete-window] 2)) (defun mouse-undo (window x y) "\ Invokes undo in the window mouse is in." (byte-code "´ ˆÎ˜ !ȯ ))Ç" [OriginallySelectedWindow window selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window undo] 4)) (defun mouse-scroll-up (window x y) "\ Scrolls the window upward." (byte-code "ˆ ˜Î¯ !È˘˙!Ȩ´!))Ç" [OriginallySelectedWindow window nil selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window move-to-window-line 1 scroll-up] 5)) (defun mouse-scroll-down (window x y) "\ Scrolls the window downward." (byte-code "ˆ ˜Î¯ !È˘´!))Ç" [OriginallySelectedWindow window nil selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window scroll-down] 4)) (defun mouse-scroll-proportional (window x y) "\ Scrolls the window proportionally corresponding to window relative X divided by window width." (byte-code "ˆ ˜Î¯ !È ˘ SY dbÁ' e˙ ¨deZ˘ S\"\"\\bȲ È˚ ))Ç" [OriginallySelectedWindow window x selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window window-width * / beginning-of-line what-cursor-position] 10)) (defun mouse-line-to-top (window x y) "\ Scrolls the line at the mouse cursor up to the top." (byte-code "ˆ ˜Î¯ !È˘ !))Ç" [OriginallySelectedWindow window y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window scroll-up] 4)) (defun mouse-top-to-line (window x y) "\ Scrolls the top line down to the mouse cursor." (byte-code "ˆ ˜Î¯ !È˘ !))Ç" [OriginallySelectedWindow window y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window scroll-down] 4)) (defun mouse-line-to-bottom (window x y) "\ Scrolls the line at the mouse cursor to the bottom." (byte-code "ˆ ˜Î¯ !È˘ ˙¨ Z\\!))Ç" [OriginallySelectedWindow window y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window scroll-up 2 window-height] 7)) (defun mouse-bottom-to-line (window x y) "\ Scrolls the bottom line up to the mouse cursor." (byte-code "ˆ ˜Î¯ !È˘ ˙¨ Z\\!))Ç" [OriginallySelectedWindow window y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window scroll-down 2 window-height] 7)) (defun mouse-line-to-middle (window x y) "\ Scrolls the line at the mouse cursor to the middle." (byte-code "ˆ ˜Î¯ !È˘˙ ¨²˚ ¸\"#!))Ç" [OriginallySelectedWindow window y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window scroll-up - -1 / window-height 2] 10)) (defun mouse-middle-to-line (window x y) "\ Scrolls the line at the middle to the mouse cursor." (byte-code "ˆ ˜Î¯ !È˘˙¨² ˚\" ¸#!))Ç" [OriginallySelectedWindow window y selected-window ((byte-code "ˋ!Ç" [OriginallySelectedWindow select-window] 2)) select-window scroll-up - / window-height 2 1] 9)) (defun mini-move-point (window x y) (byte-code "´ ˆZ˜#Ç" [window x mouse-move-point 6 0] 4)) (defun mini-set-mark-and-select (window x y) (byte-code "´ ˆZ˜#Ç" [window x mouse-set-mark-and-select 6 0] 4)) (defun Buffer-at-mouse (w x y) "\ Calls Buffer-menu-buffer from mouse click." (byte-code "˜ËÇ" [w x y t ((byte-code "˜ #ȯ È˘ˆ!Ç" [w x y t mouse-move-point beginning-of-line Buffer-menu-buffer] 4))] 1)) (defun mouse-buffer-bury (w x y) "\ Bury the indicated buffer." (byte-code "ˆ˜ #!Ç" [w x y bury-buffer Buffer-at-mouse] 5)) (defun mouse-buffer-select (w x y) "\ Put the indicated buffer in selected window." (byte-code "ˆ˜ #!ȯ Ç" [w x y switch-to-buffer Buffer-at-mouse list-buffers] 5)) (defun mouse-buffer-delete (w x y) "\ mark indicated buffer for delete" (byte-code "ˆËÇ" [w x y ((byte-code "ˆ #Ș Ç" [w x y mouse-move-point Buffer-menu-delete] 4))] 1)) (defun mouse-buffer-execute (w x y) "\ execute buffer-menu selections" (byte-code "ˆËÇ" [w x y ((byte-code "ˆ #Ș Ç" [w x y mouse-move-point Buffer-menu-execute] 4))] 1)) (defun enable-mouse-in-buffer-list nil "\ Call this to enable mouse selections in *Buffer List* LEFT puts the indicated buffer in the selected window. SHIFT-LEFT buries the indicated buffer. RIGHT marks the indicated buffer for deletion. SHIFT-RIGHT deletes the marked buffers. To unmark a buffer marked for deletion, select it with LEFT." (byte-code "¹ËÇ" [((byte-code "¹ ÈˋqÈ´ˆ˜\"È´¯˘\"È´˙¨\"È´²˚\"Ç" [list-buffers "*Buffer List*" local-set-mouse (text shift left) mouse-buffer-bury (text left) mouse-buffer-select (text right) mouse-buffer-delete (text shift right) mouse-buffer-execute] 7))] 1)) (global-set-mouse (quote (text left)) (quote mouse-drag-move-point)) (global-set-mouse (quote (text up left)) (quote mouse-drag-set-mark)) (global-set-mouse (quote (text shift left)) (quote mouse-exch-pt-and-mark)) (global-set-mouse (quote (text right)) (quote mouse-set-mark-and-select)) (global-set-mouse (quote (text shift right)) (quote mouse-save/delete/yank)) (global-set-mouse (quote (text control right)) (quote mouse-save-thing-there)) (global-set-mouse (quote (text control left)) (quote mouse-yank-at-point)) (global-set-mouse (quote (text meta left)) (quote mouse-line-to-top)) (global-set-mouse (quote (text meta shift left)) (quote mouse-line-to-bottom)) (global-set-mouse (quote (text meta right)) (quote mouse-top-to-line)) (global-set-mouse (quote (text meta shift right)) (quote mouse-bottom-to-line)) (global-set-mouse (quote (text meta control left)) (quote mouse-call-kbd-macro)) (global-set-mouse (quote (text meta control right)) (quote mouse-undo)) (global-set-mouse (quote (scrollbar left)) (quote mouse-line-to-top)) (global-set-mouse (quote (scrollbar shift left)) (quote mouse-line-to-bottom)) (global-set-mouse (quote (scrollbar right)) (quote mouse-top-to-line)) (global-set-mouse (quote (scrollbar shift right)) (quote mouse-bottom-to-line)) (global-set-mouse (quote (scrollbar meta left)) (quote mouse-line-to-top)) (global-set-mouse (quote (scrollbar meta shift left)) (quote mouse-line-to-bottom)) (global-set-mouse (quote (scrollbar meta right)) (quote mouse-top-to-line)) (global-set-mouse (quote (scrollbar meta shift right)) (quote mouse-bottom-to-line)) (global-set-mouse (quote (modeline left)) (quote mouse-scroll-up)) (global-set-mouse (quote (modeline meta left)) (quote mouse-select-window)) (global-set-mouse (quote (modeline right)) (quote mouse-scroll-down)) (global-set-mouse (quote (modeline meta right)) (quote mouse-select-window)) (global-set-mouse (quote (modeline control left)) (quote mouse-delete-other-windows)) (global-set-mouse (quote (modeline control right)) (quote mouse-delete-window)) (global-set-mouse (quote (modeline control left right)) (quote mouse-select-window)) (global-set-mouse (quote (modeline left right)) (quote mouse-select-window)) (global-set-mouse (quote (minibuffer left)) (quote mini-move-point)) (global-set-mouse (quote (minibuffer right)) (quote mini-set-mark-and-select)) (global-set-mouse (quote (minibuffer shift left)) (quote (previous-complex-command 1))) (global-set-mouse (quote (minibuffer control left)) (quote (next-complex-command 1))) (global-set-mouse (quote (minibuffer shift right)) (quote (next-complex-command 1))) (global-set-mouse (quote (minibuffer control right)) (quote (previous-complex-command 1))) 
